home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / T-COMAL Today / (k)te.d64 / quicksort.proc < prev    next >
Text File  |  2009-01-03  |  479b  |  19 lines
  1. 9430 PROC QUICKSORT(LEND,REND) 
  2. 9435   LP:=LEND; RP:=REND
  3. 9440   COMP$:=NAME$((LP+RP) DIV 2)
  4. 9445   REPEAT 
  5. 9450     WHILE NAME$(LP)<COMP$ DO
  6. 9455       LP:+1
  7. 9460     ENDWHILE 
  8. 9465     WHILE NAME$(RP)>COMP$ DO
  9. 9470       RP:-1
  10. 9475     ENDWHILE 
  11. 9480     IF LP<=RP THEN
  12. 9485       EXCHANGE(NAME$(LP),NAME$(RP))
  13. 9490       LP:+1; RP:-1
  14. 9495     ENDIF 
  15. 9500   UNTIL LP>RP
  16. 9505   IF LEND<RP THEN QUICKSORT(LEND,RP)
  17. 9510   IF LP<REND THEN QUICKSORT(LP,REND)
  18. 9515 ENDPROC QUICKSORT
  19.